	CHARACTER*71 REC
	DIMENSION N(3),V(5)
	OPEN(UNIT=2,CARRIAGECONTROL='LIST',STATUS='UNKNOWN')
C
1	FORMAT(A)
2	FORMAT(3I3,A)
3	FORMAT(<N(1)>F6.0,<NSKIP>X,I4)
4	FORMAT(<N(1)>F9.2,<NSK>X,I4)
C
15	READ(1,1,END=20)REC
	WRITE(2,1)REC
	READ(1,2)(N(I),I=1,3),REC
	WRITE(2,2)(N(I),I=1,3),REC
	READ(1,1)REC
	WRITE(2,1)REC
C
	NSKIP=80-N(1)*6-4
	NSK=80-N(1)*9-4
	DO 10 I=1,N(3)
	READ(1,3)(V(K),K=1,N(1)),IYR
	WRITE(2,4)(V(K),K=1,N(1)),IYR
10	CONTINUE
	GO TO 15
20	CALL EXIT
	END
